!> Command Line Interface
module nnpx_command_line

    implicit none

    private
    public :: get_m_value_from_CLI

contains

    !> get M value from command line
    subroutine get_m_value_from_CLI(m, loading_factor)
        integer, intent(out) :: m
        real, intent(out) :: loading_factor
        character(len=32) :: arg

        call get_command_argument(1, arg)
        read (arg, *) m

        call get_command_argument(2, arg)
        read (arg, *) loading_factor

    end subroutine get_m_value_from_CLI

end module nnpx_command_line
